home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / ITEDO IsoDraw-I / ITEDO IsoDraw Demo PPC I / ITEDO IsoDraw Demo PPC I.rsrc / STR#_507.txt < prev    next >
Encoding:
Text File  |  1994-01-18  |  760 b   |  78 lines
  1. %%BeginProcSet: Adobe_customcolor 1.0 0
  2. % Custom Color Operators
  3. % Version 1.0 5/9/1988
  4.  
  5.  
  6. % Copyright (C) 1987-1990
  7. % Adobe Systems Incorporated
  8. % All Rights Reserved
  9.  
  10.  
  11. currentpacking true setpacking
  12. userdict /Adobe_customcolor 5 dict dup begin put
  13. /initialize
  14.  
  15.  
  16. {
  17. /setcustomcolor where
  18.     {
  19.     pop
  20.     }
  21.     {
  22.     Adobe_customcolor begin
  23.  
  24.  
  25.     Adobe_customcolor
  26.         {
  27.         dup xcheck
  28.             {
  29.             bind
  30.  
  31.  
  32.             } if
  33.         pop pop
  34.         } forall
  35.     end
  36.     Adobe_customcolor begin
  37.     } ifelse
  38.  
  39.  
  40. } def
  41. /terminate
  42. {
  43. currentdict Adobe_customcolor eq
  44.     {
  45.     end
  46.     } if
  47. } def
  48.  
  49.  
  50. /findcmykcustomcolor
  51. {
  52. 5 packedarray
  53. }  def
  54. /setcustomcolor
  55. {
  56. exch
  57. aload pop pop
  58.  
  59.  
  60. 4
  61.     {
  62.     4 index mul 4 1 roll
  63.     } repeat
  64. 5 -1 roll pop
  65. setcmykcolor
  66. } def
  67.  
  68.  
  69. /setoverprint
  70. {
  71. pop
  72. } def
  73. currentdict readonly pop end
  74. setpacking
  75. %%EndProcSet
  76.  
  77.  
  78.